home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / cvs / contrib / commit_prep < prev    next >
Encoding:
Text File  |  2005-10-16  |  2.6 KB  |  75 lines
  1. #! /usr/bin/perl -T
  2. # -*-Perl-*-
  3.  
  4. ###############################################################################
  5. ###############################################################################
  6. ###############################################################################
  7. #
  8. # THIS SCRIPT IS PROBABLY BROKEN.  REMOVING THE -T SWITCH ON THE #! LINE ABOVE
  9. # WOULD FIX IT, BUT THIS IS INSECURE.  WE RECOMMEND FIXING THE ERRORS WHICH THE
  10. # -T SWITCH WILL CAUSE PERL TO REPORT BEFORE RUNNING THIS SCRIPT FROM A CVS
  11. # SERVER TRIGGER.  PLEASE SEND PATCHES CONTAINING THE CHANGES YOU FIND
  12. # NECESSARY TO RUN THIS SCRIPT WITH THE TAINT-CHECKING ENABLED BACK TO THE
  13. # <bug-cvs@gnu.org> MAILING LIST.
  14. #
  15. # For more on general Perl security and taint-checking, please try running the
  16. # `perldoc perlsec' command.
  17. #
  18. ###############################################################################
  19. ###############################################################################
  20. ###############################################################################
  21.  
  22. # Perl filter to handle pre-commit checking of files.  This program
  23. # records the last directory where commits will be taking place for
  24. # use by the log_accum.pl script.
  25. #
  26. # IMPORTANT: this script interacts with log_accum, they have to agree
  27. # on the tmpfile name to use.  See $LAST_FILE below.
  28. #
  29. # Contributed by David Hampton <hampton@cisco.com>
  30. # Stripped to minimum by Roy Fielding
  31. #
  32. ############################################################
  33. $TMPDIR        = $ENV{'TMPDIR'} || '/tmp';
  34. $FILE_PREFIX   = '#cvs.';
  35.  
  36. # If see a "-u $USER" argument, then destructively remove it from the
  37. # argument list, so $ARGV[0] will be the repository dir again, as it
  38. # used to be before we added the -u flag.
  39. if ($ARGV[0] eq '-u') {
  40.   shift @ARGV;
  41.   $CVS_USERNAME = shift (@ARGV);
  42. }
  43.  
  44. # This needs to match the corresponding var in log_accum.pl, including
  45. # the appending of the pgrp and username suffixes (see uses of this
  46. # var farther down).
  47. $LAST_FILE = "$TMPDIR/${FILE_PREFIX}lastdir";
  48.  
  49. sub write_line {
  50.     my ($filename, $line) = @_;
  51.  
  52. # A check of some kind is needed here, but the rules aren't apparent
  53. # at the moment:
  54.  
  55. #    foreach($filename, $line){    
  56. #        $_ =~ m#^([-\@\w.\#]+)$#;
  57. #        $_ = $1;
  58. #    }
  59.  
  60.     open(FILE, ">$filename") || die("Cannot open $filename: $!\n");
  61.     print(FILE $line, "\n");
  62.     close(FILE);
  63. }
  64.  
  65. #
  66. # Record this directory as the last one checked.  This will be used
  67. # by the log_accumulate script to determine when it is processing
  68. # the final directory of a multi-directory commit.
  69. #
  70. $id = getpgrp();
  71.  
  72. &write_line("$LAST_FILE.$id.$CVS_USERNAME", $ARGV[0]);
  73.  
  74. exit(0);
  75.